home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmC3_102_App < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.4 KB  |  71 lines
  1. // %filename% -- application class 
  2. // Created %date% %time% by AppMaker 
  3.  
  4. #include "U%appname%App.h"
  5.  
  6. #ifndef __FONTS__
  7. #include <Fonts.h>
  8. #endif
  9.  
  10. #include "ResourceDefs.h"
  11.  
  12. const OSType kSignature        = 'XXXX';    // Creator name
  13.  
  14. #pragma segment AInit
  15. //----------
  16. pascal void T%appname%App::I%appname%App (void)
  17. {
  18.     inherited::IApplication (kDocFileType, kSignature);
  19.     %for each menu gen addResMenu%
  20.     %for each dialog gen createModeless%
  21.  
  22. } /* I%appname%App */
  23.  
  24. #pragma segment AOpen
  25. //----------
  26. pascal TDocument* T%appname%App::DoMakeDocument    (CommandNumber    /* itsCmdNumber */,
  27.                                                  TFile*            itsFile)
  28. {
  29.     T%appname%Doc        *%appname%Doc;
  30.     
  31.     %appname%Doc = new T%appname%Doc;
  32.     %appname%Doc->I%appname%Doc (itsFile);
  33.     return (%appname%Doc);
  34.  
  35. } /* DoMakeDocument */
  36.  
  37. #pragma segment ARes
  38. //----------
  39. pascal void T%appname%App::DoSetupMenus ()
  40. {
  41.     inherited::DoSetupMenus ();
  42.  
  43.     %for each menu gen enableItems%
  44.  
  45. } /* DoSetupMenus */
  46.  
  47. #pragma segment ASelCommand
  48. //----------
  49. pascal void T%appname%App::DoMenuCommand    (CommandNumber        aCmdNumber)
  50. {
  51.     short            menu;
  52.     short            item;
  53.     
  54.     if (aCmdNumber < 0) {
  55.         CommandToMenuItem (aCmdNumber, menu, item);
  56.     } else {
  57.         switch (aCmdNumber) {
  58.             case 0:
  59.                 break;
  60.             %for each menu gen handleItems%
  61.  
  62.             default:
  63.                     inherited::DoMenuCommand (aCmdNumber);
  64.                 break;
  65.         } /*switch*/
  66.     }
  67. } /* DoMenuCommand */
  68.  
  69. %for each menu gen doItems%
  70. /* %unitname% */
  71.